/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / _apps_3 / smallapps2 / _fastwipe / wipe0src

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 f4 20 20 20 | 20 20 20 20 20 20 20 20 |.....   |        |
|00000010| 3e 57 69 70 65 30 53 72 | 63 0d 00 14 20 f4 20 50 |>Wipe0Sr|c... . P|
|00000020| 72 6f 67 72 61 6d 20 20 | 20 46 61 73 74 20 66 6c |rogram  | Fast fl|
|00000030| 6f 70 70 79 20 77 69 70 | 65 0d 00 1e 14 f4 20 56 |oppy wip|e..... V|
|00000040| 65 72 73 69 6f 6e 20 20 | 20 41 31 2e 30 0d 00 28 |ersion  | A1.0..(|
|00000050| 1e f4 20 41 75 74 68 6f | 72 20 20 20 20 47 6c 79 |.. Autho|r    Gly|
|00000060| 6e 6e 20 43 6c 65 6d 65 | 6e 74 73 0d 00 32 19 f4 |nn Cleme|nts..2..|
|00000070| 20 52 49 53 43 20 55 73 | 65 72 20 4a 75 6e 65 20 | RISC Us|er June |
|00000080| 31 39 39 31 0d 00 3c 24 | f4 20 50 72 6f 67 72 61 |1991..<$|. Progra|
|00000090| 6d 20 20 20 73 75 62 6a | 65 63 74 20 74 6f 20 63 |m   subj|ect to c|
|000000a0| 6f 70 79 72 69 67 68 74 | 0d 00 46 05 3a 0d 00 50 |opyright|..F.:..P|
|000000b0| 10 de 20 63 6f 64 65 25 | 20 31 30 32 34 0d 00 5a |.. code%| 1024..Z|
|000000c0| 14 e3 20 6f 70 74 25 3d | 30 20 b8 20 32 20 88 20 |.. opt%=|0 . 2 . |
|000000d0| 32 0d 00 64 0c 50 25 3d | 63 6f 64 65 25 0d 00 6e |2..d.P%=|code%..n|
|000000e0| 05 3a 0d 00 78 0d 5b 4f | 50 54 20 6f 70 74 25 0d |.:..x.[O|PT opt%.|
|000000f0| 00 82 05 3a 0d 00 8c 42 | 41 44 52 20 72 30 2c 77 |...:...B|ADR r0,w|
|00000100| 61 72 6e 69 6e 67 20 20 | 20 20 20 20 20 3b 64 69 |arning  |     ;di|
|00000110| 73 70 6c 61 79 20 77 61 | 72 6e 69 6e 67 20 61 6e |splay wa|rning an|
|00000120| 64 20 72 65 71 75 65 73 | 74 20 63 6f 6e 66 69 72 |d reques|t confir|
|00000130| 6d 61 74 69 6f 6e 0d 00 | 96 14 53 57 49 20 22 58 |mation..|..SWI "X|
|00000140| 4f 53 5f 57 72 69 74 65 | 30 22 0d 00 a0 17 53 57 |OS_Write|0"....SW|
|00000150| 49 56 43 20 22 58 4f 53 | 5f 43 6f 6e 66 69 72 6d |IVC "XOS|_Confirm|
|00000160| 22 0d 00 aa 16 53 57 49 | 56 43 20 22 58 4f 53 5f |"....SWI|VC "XOS_|
|00000170| 57 72 69 74 65 43 22 0d | 00 b4 17 53 57 49 56 43 |WriteC".|...SWIVC|
|00000180| 20 22 58 4f 53 5f 4e 65 | 77 4c 69 6e 65 22 0d 00 | "XOS_Ne|wLine"..|
|00000190| be 10 4d 4f 56 56 53 20 | 50 43 2c 72 31 34 0d 00 |..MOVVS |PC,r14..|
|000001a0| c8 12 43 4d 50 20 72 30 | 2c 23 97 28 22 79 22 29 |..CMP r0|,#.("y")|
|000001b0| 0d 00 d2 10 4d 4f 56 4e | 45 20 50 43 2c 72 31 34 |....MOVN|E PC,r14|
|000001c0| 0d 00 dc 05 3a 0d 00 e6 | 3f 4d 4f 56 20 72 30 2c |....:...|?MOV r0,|
|000001d0| 23 36 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 63 |#6      |      ;c|
|000001e0| 6c 61 69 6d 20 34 4b 20 | 6f 66 20 77 6f 72 6b 73 |laim 4K |of works|
|000001f0| 70 61 63 65 2c 20 65 78 | 69 74 20 69 66 20 66 61 |pace, ex|it if fa|
|00000200| 69 6c 65 64 0d 00 f0 10 | 4d 4f 56 20 72 33 2c 23 |iled....|MOV r3,#|
|00000210| 34 30 39 36 0d 00 fa 14 | 53 57 49 20 22 58 4f 53 |4096....|SWI "XOS|
|00000220| 5f 4d 6f 64 75 6c 65 22 | 0d 01 04 10 4d 4f 56 56 |_Module"|....MOVV|
|00000230| 53 20 50 43 2c 72 31 34 | 0d 01 0e 13 53 54 52 20 |S PC,r14|....STR |
|00000240| 72 32 2c 5b 72 31 32 2c | 23 30 5d 0d 01 18 05 3a |r2,[r12,|#0]....:|
|00000250| 0d 01 22 36 41 44 44 20 | 72 31 2c 72 31 32 2c 23 |.."6ADD |r1,r12,#|
|00000260| 34 20 20 20 20 20 20 20 | 20 3b 72 65 61 64 20 63 |4       | ;read c|
|00000270| 6c 6f 63 6b 20 77 69 74 | 68 20 4f 53 5f 57 6f 72 |lock wit|h OS_Wor|
|00000280| 64 20 31 34 2c 33 0d 01 | 2c 0d 4d 4f 56 20 72 30 |d 14,3..|,.MOV r0|
|00000290| 2c 23 33 0d 01 36 12 53 | 54 52 20 72 30 2c 5b 72 |,#3..6.S|TR r0,[r|
|000002a0| 31 2c 23 30 5d 0d 01 40 | 0e 4d 4f 56 20 72 30 2c |1,#0]..@|.MOV r0,|
|000002b0| 23 31 34 0d 01 4a 12 53 | 57 49 20 22 58 4f 53 5f |#14..J.S|WI "XOS_|
|000002c0| 57 6f 72 64 22 0d 01 54 | 0c 42 56 53 20 65 78 69 |Word"..T|.BVS exi|
|000002d0| 74 0d 01 5e 05 3a 0d 01 | 68 3f 4c 44 52 20 72 30 |t..^.:..|h?LDR r0|
|000002e0| 2c 5b 72 31 2c 23 30 5d | 20 20 20 20 20 20 20 3b |,[r1,#0]|       ;|
|000002f0| 75 73 65 20 62 6f 74 74 | 6f 6d 20 31 36 20 62 69 |use bott|om 16 bi|
|00000300| 74 73 20 6f 66 20 74 69 | 6d 65 20 61 73 20 64 69 |ts of ti|me as di|
|00000310| 73 63 20 69 64 0d 01 72 | 0d 53 54 52 20 72 30 2c |sc id..r|.STR r0,|
|00000320| 69 64 0d 01 7c 05 3a 0d | 01 86 3f 4d 4f 56 20 72 |id..|.:.|..?MOV r|
|00000330| 30 2c 72 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |0,r1    |        |
|00000340| 3b 67 65 6e 65 72 61 74 | 65 20 64 69 73 63 20 6e |;generat|e disc n|
|00000350| 61 6d 65 20 66 72 6f 6d | 20 74 69 6d 65 20 61 6e |ame from| time an|
|00000360| 64 20 64 61 74 65 0d 01 | 90 0f 41 44 52 20 72 31 |d date..|..ADR r1|
|00000370| 2c 6e 61 6d 65 0d 01 9a | 0e 4d 4f 56 20 72 32 2c |,name...|.MOV r2,|
|00000380| 23 31 31 0d 01 a4 11 41 | 44 52 20 72 33 2c 66 6f |#11....A|DR r3,fo|
|00000390| 72 6d 61 74 0d 01 ae 20 | 53 57 49 20 22 58 4f 53 |rmat... |SWI "XOS|
|000003a0| 5f 43 6f 6e 76 65 72 74 | 44 61 74 65 41 6e 64 54 |_Convert|DateAndT|
|000003b0| 69 6d 65 22 0d 01 b8 0c | 42 56 53 20 65 78 69 74 |ime"....|BVS exit|
|000003c0| 0d 01 c2 05 3a 0d 01 cc | 43 4c 44 52 20 72 30 2c |....:...|CLDR r0,|
|000003d0| 5b 72 31 32 2c 23 30 5d | 20 20 20 20 20 20 3b 67 |[r12,#0]|      ;g|
|000003e0| 65 6e 65 72 61 74 65 20 | 72 6f 6f 74 20 64 69 72 |enerate |root dir|
|000003f0| 65 63 74 6f 72 79 20 61 | 6e 64 20 6d 61 70 20 73 |ectory a|nd map s|
|00000400| 74 72 75 63 74 75 72 65 | 0d 01 d6 0e 41 44 52 20 |tructure|....ADR |
|00000410| 72 31 2c 72 65 63 0d 01 | e0 0d 4d 4f 56 20 72 32 |r1,rec..|..MOV r2|
|00000420| 2c 23 30 0d 01 ea 12 41 | 44 52 20 72 33 2c 64 65 |,#0....A|DR r3,de|
|00000430| 66 65 63 74 73 0d 01 f4 | 23 53 57 49 20 22 58 46 |fects...|#SWI "XF|
|00000440| 69 6c 65 43 6f 72 65 5f | 46 6c 6f 70 70 79 53 74 |ileCore_|FloppySt|
|00000450| 72 75 63 74 75 72 65 22 | 0d 01 fe 0c 42 56 53 20 |ructure"|....BVS |
|00000460| 65 78 69 74 0d 02 08 05 | 3a 0d 02 12 34 4d 4f 56 |exit....|:...4MOV|
|00000470| 20 72 31 2c 23 32 20 20 | 20 20 20 20 20 20 20 20 | r1,#2  |        |
|00000480| 20 20 3b 77 72 69 74 65 | 20 73 74 72 75 63 74 75 |  ;write| structu|
|00000490| 72 65 20 74 6f 20 64 72 | 69 76 65 20 30 0d 02 1c |re to dr|ive 0...|
|000004a0| 0d 4d 4f 56 20 72 32 2c | 23 30 0d 02 26 13 4c 44 |.MOV r2,|#0..&.LD|
|000004b0| 52 20 72 33 2c 5b 72 31 | 32 2c 23 30 5d 0d 02 30 |R r3,[r1|2,#0]..0|
|000004c0| 10 4d 4f 56 20 72 34 2c | 23 34 30 39 36 0d 02 3a |.MOV r4,|#4096..:|
|000004d0| 16 53 57 49 20 22 58 41 | 44 46 53 5f 44 69 73 63 |.SWI "XA|DFS_Disc|
|000004e0| 4f 70 22 0d 02 44 05 3a | 0d 02 4e 09 2e 65 78 69 |Op"..D.:|..N..exi|
|000004f0| 74 0d 02 58 2a 4d 4f 56 | 20 72 31 2c 50 43 20 20 |t..X*MOV| r1,PC  |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 3b 73 61 76 65 20 |        |  ;save |
|00000510| 65 72 72 6f 72 20 73 74 | 61 74 65 0d 02 62 12 80 |error st|ate..b..|
|00000520| 20 72 31 2c 72 31 2c 23 | 31 3c 3c 32 38 0d 02 6c | r1,r1,#|1<<28..l|
|00000530| 13 84 52 56 53 20 72 31 | 34 2c 72 31 34 2c 72 31 |..RVS r1|4,r14,r1|
|00000540| 0d 02 76 17 53 54 4d 46 | 44 20 72 31 33 21 2c 7b |..v.STMF|D r13!,{|
|00000550| 72 30 2c 72 31 34 7d 0d | 02 80 05 3a 0d 02 8a 28 |r0,r14}.|...:...(|
|00000560| 4d 4f 56 20 72 30 2c 23 | 37 20 20 20 20 20 20 20 |MOV r0,#|7       |
|00000570| 20 20 20 20 20 3b 66 72 | 65 65 20 77 6f 72 6b 73 |     ;fr|ee works|
|00000580| 70 61 63 65 0d 02 94 13 | 4c 44 52 20 72 32 2c 5b |pace....|LDR r2,[|
|00000590| 72 31 32 2c 23 30 5d 0d | 02 9e 14 53 57 49 20 22 |r12,#0].|...SWI "|
|000005a0| 58 4f 53 5f 4d 6f 64 75 | 6c 65 22 0d 02 a8 05 3a |XOS_Modu|le"....:|
|000005b0| 0d 02 b2 3e 4c 44 4d 46 | 44 20 72 31 33 21 2c 7b |...>LDMF|D r13!,{|
|000005c0| 72 30 2c 50 43 7d 5e 20 | 20 3b 65 78 69 74 20 28 |r0,PC}^ | ;exit (|
|000005d0| 70 6f 73 73 69 62 6c 79 | 20 77 69 74 68 20 65 72 |possibly| with er|
|000005e0| 72 6f 72 20 63 6f 6e 64 | 69 74 69 6f 6e 29 0d 02 |ror cond|ition)..|
|000005f0| bc 05 3a 0d 02 c6 29 2e | 77 61 72 6e 69 6e 67 20 |..:...).|warning |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 77 61 72 |        |    ;war|
|00000610| 6e 69 6e 67 20 6d 65 73 | 73 61 67 65 0d 02 d0 42 |ning mes|sage...B|
|00000620| 45 51 55 53 20 22 49 6e | 73 65 72 74 20 64 69 73 |EQUS "In|sert dis|
|00000630| 63 20 74 6f 20 62 65 20 | 77 69 70 65 64 20 69 6e |c to be |wiped in|
|00000640| 20 64 72 69 76 65 20 30 | 20 74 68 65 6e 20 63 6f | drive 0| then co|
|00000650| 6e 66 69 72 6d 20 28 79 | 2f 6e 29 3a 20 22 0d 02 |nfirm (y|/n): "..|
|00000660| da 0a 45 51 55 42 20 30 | 0d 02 e4 05 3a 0d 02 ee |..EQUB 0|....:...|
|00000670| 35 2e 66 6f 72 6d 61 74 | 20 20 20 20 20 20 20 20 |5.format|        |
|00000680| 20 20 20 20 20 20 3b 66 | 6f 72 6d 61 74 20 73 74 |      ;f|ormat st|
|00000690| 72 69 6e 67 20 66 6f 72 | 20 64 69 73 63 20 6e 61 |ring for| disc na|
|000006a0| 6d 65 0d 02 f8 16 45 51 | 55 53 20 22 25 32 34 5f |me....EQ|US "%24_|
|000006b0| 25 6d 69 5f 25 77 33 22 | 0d 03 02 0a 45 51 55 42 |%mi_%w3"|....EQUB|
|000006c0| 20 30 0d 03 0c 09 41 4c | 49 47 4e 0d 03 16 05 3a | 0....AL|IGN....:|
|000006d0| 0d 03 20 25 2e 64 65 66 | 65 63 74 73 20 20 20 20 |.. %.def|ects    |
|000006e0| 20 20 20 20 20 20 20 20 | 20 3b 64 65 66 65 63 74 |        | ;defect|
|000006f0| 20 6c 69 73 74 0d 03 2a | 12 45 51 55 44 20 26 32 | list..*|.EQUD &2|
|00000700| 30 30 30 30 30 30 30 0d | 03 34 05 3a 0d 03 3e 37 |0000000.|.4.:..>7|
|00000710| 2e 72 65 63 20 20 20 20 | 20 20 20 20 20 20 20 20 |.rec    |        |
|00000720| 20 20 20 20 20 3b 64 69 | 73 63 20 72 65 63 6f 72 |     ;di|sc recor|
|00000730| 64 20 66 6f 72 20 45 2d | 66 6f 72 6d 61 74 20 64 |d for E-|format d|
|00000740| 69 73 63 0d 03 48 12 45 | 51 55 44 20 26 30 32 30 |isc..H.E|QUD &020|
|00000750| 32 30 35 30 41 0d 03 52 | 12 45 51 55 44 20 26 30 |2050A..R|.EQUD &0|
|00000760| 30 30 31 30 37 30 46 0d | 03 5c 12 45 51 55 44 20 |001070F.|.\.EQUD |
|00000770| 26 30 35 32 30 30 31 30 | 30 0d 03 66 12 45 51 55 |&0520010|0..f.EQU|
|00000780| 44 20 26 30 30 30 30 30 | 32 30 33 0d 03 70 12 45 |D &00000|203..p.E|
|00000790| 51 55 44 20 26 30 30 30 | 43 38 30 30 30 0d 03 7a |QUD &000|C8000..z|
|000007a0| 28 2e 69 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |(.id    |        |
|000007b0| 20 20 20 20 20 20 3b 64 | 69 73 63 20 69 64 20 6e |      ;d|isc id n|
|000007c0| 75 6d 62 65 72 0d 03 84 | 0a 45 51 55 57 20 30 0d |umber...|.EQUW 0.|
|000007d0| 03 8e 23 2e 6e 61 6d 65 | 20 20 20 20 20 20 20 20 |..#.name|        |
|000007e0| 20 20 20 20 20 20 20 20 | 3b 64 69 73 63 20 6e 61 |        |;disc na|
|000007f0| 6d 65 0d 03 98 15 45 51 | 55 53 20 22 30 31 32 33 |me....EQ|US "0123|
|00000800| 34 35 36 37 38 39 22 0d | 03 a2 12 45 51 55 53 20 |456789".|...EQUS |
|00000810| c4 33 32 2c bd 28 30 29 | 29 0d 03 ac 05 5d 0d 03 |.32,.(0)|)....]..|
|00000820| b6 0a ed 20 6f 70 74 25 | 0d 03 c0 2a c8 99 20 22 |... opt%|...*.. "|
|00000830| 4f 53 5f 46 69 6c 65 22 | 2c 31 30 2c 22 57 69 70 |OS_File"|,10,"Wip|
|00000840| 65 30 22 2c 26 46 46 43 | 2c 2c 63 6f 64 65 25 2c |e0",&FFC|,,code%,|
|00000850| 50 25 0d 03 ca 05 e0 0d | ff                      |P%......|.       |
+--------+-------------------------+-------------------------+--------+--------+